RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
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RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Field (error) message requests from other modul 13-52 -1984 5:59 VAX-11 Bliss-32 a 1 
° . ater 0: 82: :10 DISKSVMSMASTER: CRUNOFF .SRCJERROR.BLI ina (1) 
ZTITLE ‘Field (error) me sage, fequests from other modules’ 
MODULE error ( IDENT = 
Pp ZBLISS32C, ADDRESSING_MODE gM poe = LONG_RELATIVE 
oi ONEXTERNAL = LONG-RELATIV VES) 


BEGIN 


BOSSE ESTEE STE TTT TT TT eT Tere e ce ceric cic iii citi iti iit istic i iit iiiiiii 
® 


i® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


a2 
* 
® 
aa 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh ba ® 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICE i AND WITH THE * 
!® INCLUSION OF THE ABOVE a coners NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. ® 
'® ® 
il phe. INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!* CORPORATION. * 

® 

® 

® 

® 

* 

* 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eee RRR EEE EERE 
' 
!o¢ 


SooQoooooooooQooooooooQoooooooooo 
ew ele ole lofolololelololeleloloelololololalolololololololqo) 


WWWAA AAA AW DIPUNIPININIDINIDD 2 3 5 8 SS OOOO OOOCOCO 
BWNAUE GIN OOO NOULSWN CO OONOUE WN OOONOUS WN 


SOWDNAUESWN =O ODNAUES WN (OVO ONAU SW OOONOUS WN 


FAWANWAAWNAGI ID PO PINOPUNIPINIPYDYD 2 2 OO On ee 


0 : 
ob FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
90 i ABSTRACT: 
0 ‘ This module generates ited att (generally errors) for RUNOFF. 
00 ; These messages are edited at the time the routine is called to 
00 : allow inclusion of various information necessary in the 
st diagnostic. The details of this editing are described below. 
41 0041 | ENVIRONMENT: Transportable 
43 0043 AUTHOR: D. Knight CREATION DATE: June 1978 
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ERROR Field (error) message requests from other modul 1 3 -74 a 
14-Sep- DISKSVMSMASTER: CRUNOFF ..SRCJERROR.BLI;1 


v04-000 Revision History 


; 47 Boe 1 ZSBTTL ‘Revision History’ 

; | (48 047 1! 

H 49 Bes 1 ! MODIFIED BY: 

ae. 049 1! 

erk s 0050 1! 014 KAD00014 Keith Dawson 35-May-1983 

3 2g 0051 1! Suppere suppression on count ing new error messages: RNFPC2, 

3 a? $028 : - PC4, PCS, CRU, CRI, CR2). 

; 2 Bee 1! 013 KAD00013 Keith Dawson Tener) 963 

; 055 1! Support new termination messages (RNFPC2, PC3, PC4, PCS) for 

. - SF 0056 1! information written to the .BRN file (and for DSRPLUS cross- 
; 0057 1! referencing, also read from the input .BRN file). The support 
: 4 Boee : here is the addition of two new chars: 

3; 6) 0060 1! %A ==> spec of old (input) .BRN file 

3 o¢ 49d } %B ==> spec of new (output) .BRN file 

: «664 nits 1! 012 REROOO12 Ron Randall 07-Mar-1983 

; 69 0064 1! Global edit of all modules. Updated module names, idents, 

; & 0065 1! copyright dates. Changed require files to BLISS library. 

; 67 0066 1! 

3; 68 0067 1 !-- 

; 269 0068 1 
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14-Sep-1984 
ZSBITL ‘Module Level Declarations’ 


} TABLE OF CONTENTS: 

FORWARD ROUTINE 
erm: ! Error message writer 

erma: NOVALUE, Report error, text of command, & where found 

ermb: NOVALUE, i Report error, input text Line, where found 

erme: NOVALUE, i Report error extended nthe text message) 

erml: §NOVALUE, i Report error & where in the text it was found 

ermn: NOVALUE, i Report error with mee’ ¢ param & where found 

erms: NOVALUE, i Report error with string param & where found 

putmsg: NOVALUE, i Miscellaneous messages writer 

ee i Do text insertion. 

report_secondary _message; ! Fetch and report secondary error message 


INCLUDE FILES: 


| IBRARY '"NXPORT: pepe: ! XPORT Library 

EQUIRE ‘REQ:RNODEF' ' RUNOFF variant definitions 
IF DSRPLUS %THEN ; 

ow *REQ:DPLLIB'; ! DSRPLUS BLISS Library 

i RY "REQ:DSRLIB'; ! DSR BLISS Library 


t—-—s— =O Pe ee OO - -- 


i OWN STORAGE: 
LITERAL work_buffer_size = 500; 


work_buff ' Module wide character buffer 
VECTOR. CCHSALLOCATION (work_buf fer -size)], 
work_desc : $STR_DES aie +} pl lo ! §& associated string desc. 


»STRING = (work_buffer_s 
he »CHSPTR tenet st ter) »): 


w_buffe ! Module wide character buffer 
VECTOR: CCHSA 
w.descl : $STR_D 


mre 
wr 


! §& associated string desc. 


ee] 
Sah a 


erl))); 


EXTERNAL REFERENCES: 


EXTERNAL 
Ca: 952. gfet inition, 
ixed_stri 00 
irac: irac_definition, 
msgtxt: VECTOR, ! Vector of CHSPTRs to RUNOFF‘'s messages. 


22 


4.0-742 
MSMASTER: CRUNOF F. SRCJERROR.BLI; ha 
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d (error) wopees requests from other modul 18-s¢ sep- 138% 9: §2'3 


jel s-32 V4.0-742 Page 
odule Level Declarations -Sep- 


X-11 8 4 | 
aKSVMGM TER: CRUNOFF .SRCJERROR.BLI;1 (3) | 
pagers page. rob bad bP pany 


ERR 
V04 


F 

000 M 
> 128 $ 1 
; i¢9 1 phan poen n-definition . 
; 130 g 1 rnoiob: REF SxPO. 108 ().! Output file (document being built) 2 R 
s 33) U 1 <IF DSRPLUS THEN 
: } ¢ U 8 ¢' ! ert brniob: $XPO_10B (),! Input .BRN file : 
; 134 9 6¢ 1 brnoob: $XPO_10B (),! Output .BRN file 
s 155 65 1 ! Secondary error message code 
; 1% 8 64 (1 ttolob: $XPO_10B (), ! Standard messages (TTY: oun Se 
; : . 8 92 : tteiob: $XPO-10B (); i Standard error unit (TTY: usually) 
120 6 8% : — ext lene I tput xP; 5 yo ut Like. XC of ZI of file ‘%F 
; 17% Bse6 oC; = on output page on inpu ne of page rs) e ‘‘ZF"’ 
; 166 0270 1 EXTERNAL ROUTINE | 
: (6146 0271 1 endcmt, ! Skip to end of comment 
> 144 0 Le 1 pacbas, ! Convert binary to specified base 
> «(145 0275 (1 pacpag, ! Convert page number to ASCII 
: 146 0274 1 pacstr, ! Move ASCII characters. 
3 «147 0275 1 
; 148 0276 1 XIF XBLISS(BLISS32) XTHEN 
; «149 0277 1 sys$getmsg, ! System routine to fetch message text | 
: 150 0278 1 emsg; ! Error message handler for VMS 
> 151 U 0279 1 XELSE 
3 32 U 0280 1 xpo$xmsg; ! XPORT'sS routine to fetch its msg. text 
s 155 0281 1 XFI 
> «154 0282 1 
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H 2 
rror) message requests from other modul 19-30-1984 90: £3 332 VAX-11 B 
add DIRECTIVE and location to error mes 14-Sep-1984 06:10 DISKSVMS 
ZSBITL ‘ERMA == add DIRECTIVE ang location to error message’ 
GLOBAL ROUTINE erma (error,position) : NOVALUE = 


'+¢ 
! FUNCTIONAL DESCRIPTION: 


This routine contains a sequence of code that is commonly used 
for handling errors. 


If the POSITION parameter is TRUE, it calls ENDCMT to 

position to the end of the erroneous command. Then it passes 

to ERM the specified error message (ERROR), and the start and 

length of the string to be inserted into the error message. 

Note that this call on ERM does not depend on the value of POSITION. 


sna NY it calls ERM to output the error message indicating 
where in the input and output files the error occurred. 


It is by no means necessary to call ERM only via ERMA. ERMA is 
simply a collection of commonly used code and is here for the 
sake of convenience. 

FORMAL PARAMETERS: 


ERROR = Address of desired error diagnostic. Passed to ERM. 
POSITION = If TRUE, ERMA positions to the end of the 
command before issuing the second call on ERM. 


IMPLICIT INPUTS: 


RNFLOC = An error message ode where error occurred 
pt cotiany - A ch$ptr to the start of the command 


- A ch$ptr to the character after the last one 
in the command 


IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 
if position 
endcmt (); ! Position to end of command. 


erm (.error, .gca_com_start, CHSDIFF (.fs_next (ira), .gca_com_start)); 
erm (rnfloc, 0, 0); 
ND; ! End of ERMA 


ss-32 V4.0-742 


li -0- Pa 
MASTER: CRUNOFF..SRCJERROR.BLI;1 


-TITLE ERROR Field (error) message requests from other 


modu 
-IDENT \V04-000\ 
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3; Routine Size: 


2 
Field (error) message requests from other modul ihesé -1984 00:25:59 VAX-11 Blis 
ERMA == add DIRECTIVE and location to error mes 1e-8ep-19 4 99:88:30 DISKSVMSMAS 


»PSECT SOWNS,NOEXE,2 
00000 WORK_BUFFER: 


-BLKB 500 
01F4 001F4 WORK_DESC: 
01 O1F “BYTE 390 1 
00000088" SOTES ;ADDRESS WORK_BUFFER 


OO1FC W_BUFFERI: 
-BLKB 132 
0082 90380 W_DESCT:.WORD 
01 OE “BY 4,1 
00000000" 00284 “ADDRESS W_BUFFER1 
.EXTRN GCA 


“EXTRN SYSS$GETMSG, EMSG 
.PSECT SCODE$,NOWRT,2 


000c 00000 .ENTRY ERMA, gave R2,R3 
53 00000000V —  9E 90008 MOVAB ERM, R 
52 000000006 ‘EF 3 9000 MOVAB GCA, R2 
07 08 AC €9 00010 BLBC POS:TION, 1$ 
000000006 EF 00 Fe 0014 CALLS #0, ENDCMT 
7E 000000006 EF 62 C 0018 1$: SUBL3 GCA, IRA+4, -(SP) 
62 DD 000 PUSHL GCA 
04 aC DD 00025 PUSHL ERROR 
63 03 FB 00028 CALLS #3, ERM 
7E 7C 00028 LRQ. 0s = ( §P) 
000000006 8F DD 000 p PUSHL  #RNFLOC 
3 03 FB 000 CALLS #3, ER 
04 00036 ET 


55 bytes, Routine Base: $CODE$ + 0000 


0335 1 


0-742 Pa 
OFF .SRCJERROR.BLI;1 


IRA, IRAC, MSGTXT 


ERROR Fi 
v04-000 ERMB 

> 210 1 

3 1} ‘ } 

3 if § e. 
: 14 40 1! 
3 15 ey 3 2 
: 216 tg 1! 
3 sit 0345 1%! 
; 18 8 44 1! 
3; 2 45 1! 
: $50 O89} i 
: 8 4g 1 
3; @ 0349 1! 
; $e 0350 1! 
: $82 b38> 1 | 
; 297 b3e§ 1! 
; 28 0354 1! 
3 44 0355 1! 
; 230 B328 . | 
3; 231 0357 1! 
; see 0358 1! 
; 2 0359 1! 
; 234 0360 1! 
s 259 0361 1! 
: 236 0366 1! 
s 2s¢ 036 i 
: 238 0364 1! 
: 239 0365 1! 
; 240 0366 1! 
3; 241 0367 1! 
; seg 0368 1! 
3 st 4 1! 
3 44 0370 1! 
: 245 0371 1°! 
: 246 B36 1! 
: see 0375 1! 
; 248 0374 1! 
: 249 0375 1! 
: 250 0376 1 

s @l 0377 

3 $26 378 

s @ 19 

3 54 80 

3 32 tet 

i $8 0388 

3 $28 Bese 

: 59 0385 


eld (error) message 
=~ add input text 


2 


location to error mess 14-Sep- 


'e4 
! FUNCTIONAL DESCRIPTION: 


This routine contains a sequence of code that is commonly used 
for handling errors. 


Processing is Like ERMA except that the entire input Line is 
displayed rather than just a command. 


If the POSITION parameter is TRUE, it calls ENDCMT to 

position to the end of the erroneous command. It always passes 
to ERM the specified error message (ERROR), and the start and 
length of the string to be inserted into the error message 


Note that this call on ERM does not depend on the value of POSITION. 


rswet iy. it calls ERM to output the error message indicating 
where in the input and output files the error occurred. 


FORMAL PARAMETERS: 
ERROR = Address of desired error diagnostic. Passed to ERM. 
POSITION = If TRUE, ERMA positions to the end of the 
command before issuing the second call on ERM. 
IMPLICIT INPUTS: 
RNFLOC = An error message stating where error occurred 
FS_START (IRA) = A ch$ptr_to the start of the input Line. 
FS_MAXSIZE (IRA) - The total size of the input Line. 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 


COMPLETION CODES: None 
SIDE EFFECTS: None 
BEGIN 


od zpestt ten 
endcmt (); ! Position to end of command. 
erm (.error, .fs_start (ira), .fs_maxsize (ira)); 


erm (rnfloc, 0, 0); 
END; ! End of ERMB 


0004 00000 -ENTRY ERMB, Save R2 
52 00000000V EF 9E 00002 MOVAB ERM, R 


requests from other modul 1bese -1984 00:25:59 VAX-11 Bliss- 0-7 
i or19be 99:60:90 DERKSUNEMASTERSCKONOFE 


ZSBTTL ‘ERMB == add input text & location to error message’ 
GLOBAL ROUTINE ermb (error,position) : NOVALUE = 


42 Page 
« SRCJERROR.BLI;1 
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eld (error) message rgavests from other nodul 16-Sep-1984 90:63:38 VAX-11 BLi 


Fi $$-32 V4.0-74 P RAC 
ERMB == add input text ocation to error ep-1 DT EKSVMGHASTERSCHUNOFE “SRCJERROR.BLIGd (sf 


$3 | 


ERROR 
v04- 


07 08 ac €9 BLBC POSITION, 1$ : 037 
000000006 EF 06 FB op CALLS # gNDCAT : by 
990000 96 EF DD 4 1$: PUSHL  IRA+ : 0383 
G EF DD OOO1A PUSHL IRA : 
4 AC DD 9 PUSHL ERROR : 
- oe 58 hk” they : 0384 
000000006 i DD PUSHL  #RNFLOC : 
62 3 FB F CALLS #3, ERM : 
04 RET + 0385 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0037 


; 260 0386 1 
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ERROR Field (error) message requests from other modul 1 4 00:25:59 VAX-11 Bliss-32 V4.0-7 
v04-000 ERME == report messege w/secondary message 1 3b 99:88:40 DISKSVMSMASTER: CRUNOFF 
3 $¢ 7 1 XSBTTL 'ERME == report message w/secondary message’ 
5 o7 8 : GLOBAL ROUTINE erme (error, arg, len, msgcode) : NOVALUE = 
: 265 0 1 44 
; 28 4! ! } FUNCTIONAL DESCRIPTION: 
; 268 38 1} This routine will report the message as passed and then print a second 
: +4 Be : informational Line based on the passed message code (msgcode). 
3 | 38 : FORMAL PARAMETERS: 
: 4g 4 1! ERROR = Address of desired qrver diagnostic. Passed to ERM. 
3 74 9 1! ARG - A CHSPTR to the str ng to be output. 
3 ar 400 1! LEN - The Length of the str ng 
3 re bres : } MSGCODE = Error message code for the secondary error message. 
; 278 gc0$ 1 ! IMPLICIT INPUTS: None 
: 279 404 1! 
; 280 0405 1! IMPLICIT OUTPUTS: None 
; 281 0406 1! 
3 Bg 0407 1 ! ROUTINE VALUE: 
: 28 0408 1 ! COMPLETION CODES: None 
: 284 0409 1! 
; 285 0410 1 ! SIDE EFFECTS: None 
: 286 0411 1 !e= 
; 287 pols 1 
; «4788 041 BEGIN 
; 289 0414 erm (.error, .arg, .len); 
: 290 0415 Leper’, pesansary joeeeee gagcage)s 
: 291 0416 1 END; ! End of ERMS 
0000 00000 «ENTRY ERME, Save nothing 
’ 7E 08 AC 7D 00002 ova ARG, -(SP) 
04 at DD 00006 PUSHL ERROR 
00000000V_ EF 03 FB 00009 CALLS ERM 
10 AC DD 90019 PUSHL MSGCODE 
00000000V_ EF 01 FB 0001 CALLS #1, REPORT_SECONDARY_MESSAGE 
04 OOOI1A RET 


; Routine Size: 27 bytes, Routine Base: S$CODE$ + 0069 


; 292 0417 1 


42 Page 9 
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3; Routine Size: 


WA 


329 


Field (e 
ERML == 
418 1 
aH 
| 
058 | 
426 1 
a 
| 
4 1 
Be8 | 
t32 | 
a3 | 
434 1 
236 
as 
4358 1 
439 1 
440 1 
441 1 
Bees 1 
04435 1 
0444 1 
Ree? 1 
446 1 
0447 1 
0448 1 
0449 
0450 
0451 
0452 1 
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rror) message requests from other modul 16-Sep-1984 00:25:5 
add locat on to orrer message without al 30071 3c 9956833 


RSBTT. "ERML == add location to error message without additional data’ 
GLOBAL ROUTINE erml (error) : NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


This routine contains a sequence of code that is commonly used 
for handling errors. 


ERML is dyat a shortcut for the following calls: 
RM (.ERR 0 $ 


ERM (RNFLOC. 0, 0): 
In other words, it saves code. 


! FORMAL PARAPT ERS: 


ERROR = Address of desired error diagnostic. Passed to ERM. 
IMPLICIT INPUTS: 

RNFLOC = Af error message stating where error occurred 
IMPLICIT OUTPUTS: None 


! ROUTINE VALUE: 


COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 

erm (.error, 0, 0); 

erm (rnfloc, 0, 0) 

ND; ! End of ERML 


0004 00000 -ENTRY ERML, Save R2 

Fe amnofv FE FE 00009 Cina (36) 
04 as dD Babe PUSHL ERROR 

62 FB E CALLS #3, ERM 
. BSi4 CLRQ =(SP) 

000000006 8F DD 1 PUSHL #RNFLOC 

2 3 FB 0001 CALLS #3, ERM 

04 0001C RET 


29 bytes, Routine Base: S$CODE$ + 0084 
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3; Routine Size: 
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error) message requests from other modul 16-Sep-1984 00:25:59 VAX=11 
add locat on to error message w/numer ic 12: 4 138 99:8 ISKS$VM 


Sep- 6:10 Dd 


ZSBTTL 'ERMN == add Location to error message w/numeric deta’ 
GLOBAL ROUTINE ermn (error, arg) : NOVALUE = 


'ee 


30 bytes, 


FUNCTIONAL DESCRIPTION: 


This routine contains a sequence of code that is commonly used 
for handling errors. 


The code is straightforward. It is mainly a code-saver. 


FORMAL PARAMETERS: 


ERROR = Address of desired error diagnostic. Passed to ERM. 
ARG = A number to be output. 


IMPLICIT INPUTS: 
RNFLOC = An error message stating where error occurred 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 

erm (.error, “? 0); 

erm (rnfloc, 6, ; 

ND; ! End of ERMN 


0604 00000 -ENTRY ERMN, Save R2 
52 00000000V FF 9E BR08 MOVAB ERM, R2 
earns 035: ar a ee 
splenic BE Ea 
000000006 Bf DD Oot PUSHL #RNFLOC 
2 3 FB 1A CALLS #3, ERM 
04 0001D RET 


Routine Base: $CODE$ + OOA1 


0-742 Page 11 
OFF .SRCJERROR.BLI; (8) 


Sete te Ge Se Se Se Be Be 


—— 


3 
ERROR Field (error) message requests from other modul bese -1984 00:25:59 VAX-11 Bliss-32 V4.0-742 P 1 
v04-000 ERMS == add location to error message w/string 12286071382 99:68:76 DISKSVMSMASTER:CRUNOFF .SRCJERROR.BLI:1> (35 
: 488 1 XSBTTL ‘ERMS <= add Location to error message w/string data’ 
; ef abs : GLOBAL ROUTINE erms (error, arg, len) : NOVALUE = . 
: 369 ret 1 !44 
; ty 0298 ! FUNCTIONAL DESCRIPTION: | 
: 37 494 1: This routine contains a se f code that i 
73 0495 | a Ribs fn serene quence of code that is commonly used 
; a} a9? | The code is straightforward. It is mainly a code-saver. 
3; 377 0499 1! 
: £8 Bens ! FORMAL PARAMETERS: 
: 80 p26 1 i ERROR = Address of desired error diagnostic. Passed to ERM. 
: 81 05035 1! ARG = A CHS$PTR to the string to be output. 
; bene ! LEN = The Length of the string. 
> 334 0506 1} IMPLICIT INPUTS: 
; «64385 0507 1! 
: $09 £45 : RNFLOC = An error message stating where error occurred 
: 388 0510 1 ! IMPLICIT OUTPUTS: None 
; 389 0511 1! 
; 390 pai¢ 1 ! ROUTINE VALUE: 
: 391 0513 1 ! COMPLETION CODES: None 
3 338 0514 1! | 
3 9 0515 1 ! SIDE EFFECTS: None 
; 394 0516 1 in 
; 395 051 1 
: 396 0518 BEGIN 
; 397 0519 erm (.error, sare len); 
: 398 0520 erm (rnfloc, 0, 0); 
; 399 0521 1 ND; ! End of ERMS | 


0004 00000 .ENTRY ERMS, Save R2 > 0489 

52 00000000v EF 9E 99008 MOVAB : ; 
7E 8 AC 7D 00009 ARG, =(SP) > 0519 

04 AC DD 0000 PUSHL ERROR : 

62 FB 991 CALLS #3, ERM ; 
— 7C 0001 CLR ~(§P) : 0520 

000000006 i DD 9001 PUSHL #RNFLOC ; 

2 3 FB 0001B CALLS #3, ERM : 
04 0001E RET > 0521 


; Routine Size: 31 bytes, Routine Base: SCODES + OOBF 


: 400 0522 1 


3 
ld (error) message requests from other modul 1$-sep-19 4 99: 5:59 VAX=11 Bl issese V4.0-74 


Page 
- funnel message to appropriate error outp 14-Sep-1984 19 


. on 2 
6:10 DISKSVMSMASTER: CRUNOFF .SRCJERROR.BLI; 


Fie 
ERM 
; 40 523 1 ZSBTTL ‘ERM == funnel message to appropriate error output mechinism' ; 
; tbe P) ¢ ! GLOBAL ROUTINE erm (error, arg, len) : NOVALUE = ‘ 
; 405 3 8 1 !44 : 
3 rey be f : } FUNCTIONAL DESCRIPTION: : 
; 408 0529 1! This routine generates and prints the requested error diagnostic. ; 
; 409 Be Oo 1! The first routine argument points to an error string consisting of : 
; 410 ee a string intermixed with special formatting flags which cause special : 
> 411 05 ¢ 1! actions to neppes to the string when a flag is encountered. ; 
; tig 05 7% The routine SCNMSG is called to expand the error message : 
3 461 0534 1! before it is output. ; 
; 414 0535 1! ; 
> «415 0536 1 ! FORMAL PARAMETERS: : 
; 416 0537 1! PF 
3; 417 0538 1! ERROR = Pointer to the desired error diagnostic. ‘ 
: 418 0539 1! ARG = Contains a value if it is to be used with %N; : 
: 419 0540 1! contains a pointer to a string if it is to be used with %S. ; 
: ri 8203 ! LEN = Unused with 2N, Contains the string length for %S. : 
3 3 03¢§ : } ALL parameters are ‘pass through’ parameters for SCNMSG. : 
> 424 0545 1 ! IMPLICIT INPUTS: None 3 
: 425 0546 1! : 
: 426 0547 1°! IMPLICIT OUTPUTS: 3 
; 427 0548 1 | : 
; 428 0549 1! GCA_FEHLER - Set to TRUE to indicate an error occurred ‘ 
3 $98 0550 1! GCA_ERRCNT - Count of Lines of error messages ; 
; 430 0551 7! : 
>; 431 bees 1 ! ROUTINE VALUE: $ 
: $36 0553 1 ! COMPLETION CODES: None ; 
: 43 0554 1! : 
; 434 0555 1 ! SIDE EFFECTS: None 3 
: 435 0556 1 !-- $ 
: 436 0557 1 : 
: 437 0558 2 BEGIN : 
; 438 0559 2 EXTERNAL LITERAL ‘Error messages previously undeclaired 3 
3; 439 0560 2 rnfbak, ! I = See command on input Line %C of page %1 of file ‘'%S"’ 3 
: 440 0561 rnferd, !| I = DSR(PLUS) Version ZV: ZN diagnostic message%X reported : 
> 441 Be0g rnfmrc, ' Ww = Another 2N crossed margin or bad right indent attempt%X detected and accumulated. Now : 
3 «44 056 rnfned, |! I = DSR(PLUS) Version %V: No errors detected : 
: «44 0564 rnfnic, | W = Another 2N negative indent%X detected and accumulated. Now being reported F 
3 444 0565 rnfpcl, : I = Illegal Beosoge: rnfpcl : 
; 445 8268 rnfpct, | 1 - ZN pageZX written to ‘Z0' ; 
3; 446 56 rnfstr, !| I = "%S : 
3 447 U 0568 ZIF OSRPLUS ZTHEN : 
: 448 U 0569 rnfpc4&, |! IN cross-reference recordZX written to %B 3 
; 449 U 0570 rnfpc5, | 4N cross-reference secordZX read from 2A i 
; 450 U 0571 rnfcru, | One or more forward cross-references could not be resolved : 
3; 451 U 278 rnfcri, ! Rum DSRPLUS again if you need them correct 3 
; $26 U be57 wr rnfcr2, ! Or run DSRPLUS/DEBUG to see which one(s) changed : 
: 6546 575 rnfpc2. |! IN indexing record%X written to %B 3 
3 $2? 278 rnfpc5; ! IN table-of-contents recordZX written to %B : 
3 489 578 LITERAL e_number_mask = ZX"7FFB'; : 
; «4458 579 3 


dD 3 
ERROR Field (error) message requests from other modul 16-Sep-1984 00:25:5 VAX-11 Bliss-32 V4.0-742 Page 14 
v04-000 ERM -- funnel messene te appreeriete error outp 12-808- 1382 90° 8833 DISKSVMSMASTER:CRUNOFF.SRCJERROR.BLI:1> (10) | 
: 459 580 LOCAL 
: 460 1 Line_cnt, 'Size of output Line 
; 461 ¢ e_number, ‘error number 
; ‘e ? status; 'Status code returned by XPORT 
> 464 : 5 ZIF XBLISS(BLISS32) XTHEN 
; 465 5 § ! Initialize message string descriptor: 
; 466 5 work. desc [str$b_dtype] = str$k_dtype_t; ! ASCII text (8-bit) 
3; 467 05 3 work desc [str$b_class] = str$k_class_f; 3 Scalar, String Descriptor 
: 468 05 work desc ([str$a_pointer] = work_buffer (0); ! First byte of char. buffer 
: 469 0590 XF I 
: 470 23} 
; rie 236 e_number = (.error AND e_number_mask)/8; 
3; 47 0594 ‘Count every real error message 
> 474 0595 IF ¢ -error NEQ rnfbak 
: 475 0596 AND .error NEQ rnferd 
: 476 0597 AND .error NEQ rnfloc 
; 477 0598 AND .error NEQ rnfmrc ! The parameter passed will be added in Later. 
: 478 0599 AND .error NEQ rnfnic ! The parameter passed will be added in Later. 
; 479 0600 AND .error NEQ rnfned 
; 480 0601 AND .error NEQ rnfpct 
; 481 060 AND .error NEQ rnfpcl 
: 482 060 AND .error NEQ rnfpc 
3 483 0604 AND .error NEQ rnfpc | 
3 484 U 0605 3 XIF DSRPLUS %THEN 
; 485 U 0606 AND .error NEQ rnfpc4 
; 486 U 0607 AND .error NEQ rnfpc5S 
3; 487 U 0608 AND .error NEQ rnfcru 
; 488 U 060 AND .error NEQ rnfcri 
3; 489 U 0610 AND .error NEQ rnfcr2 | 
; 490 0611 3 XFI 
: 491 bots 3 AND .error NEQ rnfstr ) 
: 492 061 ¢ THEN 
; 493 0614 BEGIN 
> 494 0615 3 gca_fehler = true; | 
: 495 0616 3 pcs erent = .gca_errcnt + 1; 
: 496 0617 ND; 
: 497 0618 
: 498 0619 IF (¢ error EQL rnfmrc ! These two messages display an accumulated 
; 499 0620 3 OR .error EQL rnfnic ) ! count of errors erosteusty unreported. 
: 500 pes} THEN ! Add their count to total counter. 
3 30) be ¢ gca_errcnt = .gca_errcnt + .arg; 
3 508 oe 3 Line_cnt = scnmsg (CHSPTR (work_buffer), .msgtxt C.e_number], .arg, .len); 
3 6305 0626 ZIF ZBLISS(BLISS32) XTHEN 2 ; 
3 309 Os i as work_desc (str$h_length) = .line_cnt; ! Put message length into descriptor 
: 508 629 
: 509 0630 'The Line is now packed correctly, so output it to the requested places. 
; g19 o3 CASE :gca_err dir FROM report_err_none TO report_err_both OF 
; HE ? 5 report_err_none): 0; !Don't bother to output the message | 
; az 635 Creport_err_file): P 
s 515 636 BEGIN ‘Report error in output file 
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E 


| 
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3 
ld (error) message requests from other modul 16-Sep-1984 
== funnel message to appropriate error outp 14-Sep-1 


ZIF NOT XBLISS(BLISS32) XTHEN 


- SRCJERROR.BLI; 


status = $XPO_PUT (I0B 


oiob 
line cnt, CHSPTR (work_tuffer)) ); 


! Add carriage ofentres at Be to the end of error message 


status = $XP0_ 


RING = (2, cnr : pule SES TRING — ( 


status = emsg (.error, wock_desc, true); 


ZELSE 
xFI 
END; 
Creport_err_std): 
BEGIN 


RIF NOT XBLISS(BLISS32) XTHEN 


! Report error on standard error log 


status = $XPO_PUT( RS tt 


He 
(.line_cnt, CHSPTR (work_buffer)) ); 


status = emsg (.error, work_desc, false); 


XELSE 
FI 
END; 
Creport_err_both): 
2 “BEGIN 


RIF NOT XBLISS(BLISS32) XTHEN 


! Report error both places -- output file first 


status = $XPO_PUT (10B = 
~STRING = 


noiob 
(.Line_cnt, CHSPTR (work_buffer))); 


'Add carriage gontre! igen} to the end of error message 


status = $XPO_P 


ob 
= "2, sia A gyPuyae CEE TR ING, — 


‘Report error oe oyyegers orcer log 


status = $XP0O_P 
ZELSE 


rs) 
al i Line_cnt, CHSPTR (work_buffer))); 


status = emsg (.error, work_desc, true); 


aFI 
END; 


RNFBAK, RNFERD, RNFMRC 
RNFNED, RNFNIC, RNFPC1 
RNFPCT, RNFSTR, RNFPC2 
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33 VAX=11 Bliss-32 V4.0-742 
1 DISK$V STER:C 


MSMA 
RNFPC3 


#RN 
WORK DESC R3 
#270, WORK_DESC+ 
WORK BUFFER, Ww 


E 2 
Fao 7b1 R2 RO 


ag. ELNUMBER 
iS ARNFERD 
#RNFLOC 
R5 

R6 

#RNFNED 
#RNFEPCT 
#RNFPC1 
#RNFPC2 
#RNFPC3 
#RNFSTR 


GCA+192 
+196 
R5 


>. >} . + . oe . s ~ oe _ * 


mr 
= PRAM E HS AM BMW AN BN BMV GNM SNM SOM SONW OH 
>. 
»@ 
o 


ARG, GCA+196 

RG, -(SP) 

MSGTXTCE_NUMBER] 
RK_BUFFER 


z=ezrrw 
+o 


° 


CNMSG 
LINE CNT, WORK DESC 
GCA+200, #0, #3 


gf 
#*M<R2 
M 


R3> 
#3, EMSG 


Page 6 
JERROR.BLIEI (109 


ERM, Save R2,R3,R4,R5,R6 
FNIC, R 


2 
ORK_DESC+4 


eRe Se Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Be Se Be Be Be Be Se Se Be Be Se Ge Se Se Se Se Be Ge Se Se Se Be Be Se Se Se 


ERROR 
v04-000 


; Routine Size: 


; 567 


Fi ate (error) message requests from other modul 1 
ERM == funnel message to appropriate error outp 1 


223 bytes, 


0688 1 


Routine Base: 


G-sep-1986 00:25:58 ye 


04 OOODE 8$: RET 


SCODES + OODE 


“7% Pose 1? 
FF SRCIERROR.BLIL} C105 


3; 0687 


nn" 
o 


3 
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ERROR Field (error) message requests from other modul 16-Sep-1984 00:25:59 VAX=-11 Bliss-32 V4.0-742 Page 18) 
v04-000 PUTMSG == funnel mersege to appropriate output 13-808- 1382 99:53:23 DISKSVMSMASTER: CRUNOFF . SRCJERROR.BLI: 1° (11), 
9 O88 1 ZSBTTL *PUTMSG == funnel message to aperoer lace output mechinism' 
£9 244 ! GLOBAL ROUTINE putmsg (message, arg, len) : NOVALUE = 
| 
i $638 1 l+4 
oF $37 : FUNCTIONAL DESCRIPTION: 
575 695 1! This routine generates and prints the requested message. 
276 696 1! The first routine argument points to a eyeing consisting of 
57 0697 1! a string intermixed with special formatting flags which cause special 
ef8 0698 1! actions to wappen to the string when a flag is encountered. 
79 5344 1: The routine SCNMSG is called to expand the message 
egy 8 89 1! before it is output. 
81 701 1! 
286 B08 1 ! FORMAL PARAMETERS: 
58 07 1! 
584 0704 1! MESSAGE = Pointer to the desired message. 
585 0705 1! ARG = Contains a value, if it is to be used with %N, 
586 0706 1! contains a pointer to a string if it is to be used with %S. 
eee 1444 : LEN = Unused with 2N, Contains the string length for %S. 
289 1494 : ALL parameters are ‘'pass through’ parameters for SCNMSG. | 
591 0711 1 ! IMPLICIT INPUTS: None | 
236 Brie 1! 
59 0715 1 ! IMPLICIT OUTPUTS: None 
594 0714 1! 
595 0715 1 ! ROUTINE VALUE: 
596 0716 1 ! COMPLETION CODES: None 
597 0717 1! 
598 0718 1 ! SIDE EFFECTS: None 
599 0719 1 i== 
600 0720 1 
601 0721 BEGIN 
60 BrS¢ LITERAL 
60 072 e_number_mask = %X'7FF8'; 
604 0724 2 LOCAL 
605 0725 2 Line_cnt, 'Size of output Line 
606 0726 § e_number, ‘error number | 
or Bist status; 'Status code returned by XPORT | 
609 0729 $ ZIF XBLISS(BLISS32) XTHEN 
oi? 8 ! Initialize message string descriptor: 
612 073¢ work_desc (str$b_dtype] = str$k_dtype.t; | | ASCII text (8-bit) | 
61 7 work desc [str$b_class] = str$k_class_f; ; Scalar, String Descriptor 
614 0734 work_desc Cstr$a_pointer] = work_buffér (0); ! First byte of char. buffer 
615 0735 xFI 
616 0736 | 
617 of 7 e_number = (.message AND e_number_mask) / 8; 
o18 ore Line_cnt = scnmsg (CHSPTR Twork_buffer), .msgtxt C.e_number), .arg. .len); 
620 0740 2 ZIF XBLISS(BLISS32) XTHEN 
621 tb} work_desc Cstr$h_length] = .line_cnt; ! Put message length into descriptor 
ee eg gan 
624 0744 'The Line is now packed correctly, so output it to the terminal | 
625 0745 


oO 


<7" 
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ERROR Field (error) message requests from other modul 1b-se Sep- 1984 :59 VAX-11 Bliss-32 V4.0-742 
v04-000 PUTMSG == funnel message to appropriate output 735071 38¢ 99: 88:40 DISKSVMSMASTER: ck UNOF F. SRCJERROR.BLI; 
; 6 § U 8 ZIF NOT epee fee X THEN 
3 6 U 074 status = $XPO_P T Ug = ttoiob 'Standard message device, fetid TTY:) 
; 628 U 0748 »STRING = (.Line_cnt, CHSPTR (work_buffer)) 
: 629 749 ELSE 
; 650 750 status = emsg (.message, work_desc, false); 
3 ° 1 f 1 XFI 
3 6 § o72g END; 'End of PUTMSG 
0004 00000 ENTRY pyTAss Bi R2 
52 0000000C' + 4 Ht MOVAB week 
02 A pipe F 3 0 MOVW #270, ete DESC+2 
8 A FE f 2 E OOO0F MOVA WORK ‘AUFFER, WORK_DESC+4 
50 4 AC FFFF800 F CB 00015 BICL oa ee SAGE, RO 
50 8 C6 ith DIvL2 #8 EN 
7E 08 AC ) 021 Ova R (SP) 
00000000GEF 4g DD 00025 PUSHL  MSGTXTLE_ NUMBER] 
FEOC C SF 0002C PUSHAB WORK god FFER 
00000000V EF oe FB 00030 CALLS #4, SCNMSG 
62 0 80 00037 OVW LINE CNT WORK_DESC 
43 D4 O003A CLRL -(SPJ 
5 DD 0003C PUSHL R 
04 AC DD OO003E PUSHL MESSAGE 
00000000G_ EF 03 FB 00041 CALLS #3, EMSG 
04 00048 RET 


; Routine Size: 73 bytes, Routine Base: $CODE$ + 01BD 


; 634 0754 1 


i ot} 


(ee 


3 
d (error) message requests from other modul tb-se -1984 00:25:59 VAX-11 Bliss-32 V4.0-742 Page 20 
v04-000 SG == fill ina ssing arguments in message 1 7300-138 99:62:76 DISKSVMSMASTER:CRUNOFF .SRCJERROR.BLI;1> (135 
ZSBTTL "SCNMSG == fill in missing arguments in message string’ 
6 4 ROUTINE scnmsg (Line, message, arg, len) = 
lee 


i FUNCTIONAL DESCRIPTION: 


This routine expends the specified message. The first routine 

argument is a ch$ptr to a work area where the expanded message is 
written to. The segene routine argument points to a string consisting 

of a string intermixed with special formatting flags which cause special 
actions to happen to the string when a flag is encountered. The legal 
flags in the string are: 


%S - Vetng the second and third call arguments place the 
en specified string at this point. 


Using the second argument only, place the specified 
decimal number at this point. 


AAAAAOAAAAO 
> 


IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 
Returns the number of characters in the expanded message. 


oo 
—Oo0c 


SOOOOOOOOOCOOSOOOSOCOSOCCOOCOOOOSOCOSOSOOCOCOCOOOCOOCOOOOOCOOOOOCOOCOOOOOO Wm 


CoCo Oo GoGo Co OD CO COCO OOOO I 
ee ee ee ee ee ee ee ee ee ee ee ee ee eee 


' 
i 
i 
i 
i 
i 
i 
i 
9 

50 : 

51 ' 

28 : 

5 ! ZP = Insert the Current Output Page. 

54 ‘ %L - Insert the Current Output Line. 

55 ! Z%1 = Insert the input page number. 

56 } %C = Insert the input sequence number. ; 

57 : ZF - Insert the name of the current input file. 

53 ! 20 = Insert the name of the output file. 

59 ; ZA - Insert the name of the old (input) .BRN file. 
660 : %B - Insert the name of the new (output) .BRN file. 
661 : XV - Insert the program version number 
O86 4 4X - Insert ‘'s'’ if ZN is other then 1. 

664 78 : More than one of the above arguments can occur in a message, 
665 78 : except that 2S and 2N are mutually exclusive and cannot occur 
666 4 in the same message. 
o38 4 An illegal flag will be interpreted as plaintext. 
on? ee FORMAL PARAMETERS: 
67 79 : LINE = Ch$ptr to where the message is to be built up 
79 : MESSAGE - Pointer to the desired message (unexpanded). 
674 79 : ARG = Contains a value, if it is to be used with iN, 
675 9 : contains a pointer to a string if it is to be used with %S. 
676 . } LEN = Unused with %N, Contains the string length for %S. 
678 9 ! IMPLICIT INPUTS: 
679 9 : 
680 9 : PAGE - Output Page number 
681 00 ; PHAN_LINES TP = Output Line number 
¢ 01 : IRAC_IPAGER - Input page number 
ret 8 : IRAC_ISEQN - input line count 
0 ; IRAC_FSPECP - Pointer to Input file name string 
685 Be IRAC_FSPECC - Length of Input file name string 
1 
09 i 
i 
i 


—~——O 


ee 


C3 | 
ERROR Field (error) message requests from other modul 16-Sep-1984 00:25:5 VAX=11 Bliss-32 V4.0-742 Page 21 
v04-000 SCNMSG == fill in atssins arguments an message 12-80-1382 99:58:76 DISKSVMSMASTER:CRUNOFF .SRCJERROR.BLI: 1° 13} | 
; 693 ig} | SIDE EFFECTS: None | : 
; 694 1 1 !-- Py 
; 695 14°=«1 : 
; oF 15 BEGIN H 
3; 8 18 LOCAL : 
; 698 1 Line_cnt, 'Size of output Line ; 
3 34 18 Line_ptr, 'String pointer to output Line ; 
; 700 0819 strg_cnt, 'Size of input Line | : 
; 4't 8 Y strg_ptr; 'String pointer to input Line : 
: 70 'Set up for processin ; 
; pe 5s § Line_ptr=, line; . : 
; 705 4 Line_cnt=0; : 
3 Pe 8 5 strg_ptr=.message; : 
: 708 08 $ 'Get input Line size (Length of orginial error message string) : 
; 198 Be 8 strg_cnt = CHSRCHAR_A (strg_ptr); : 
s 711 0850 'Now process the entire input string F 
; re 0831 INCR 1 FROM 1 TO .strg_cnt DO : 
; sr peas BEGIN : 
; 714 08 LOCAL : 
; «715 0834 character; : 
; rig 08 5 é 
; 539 character = CHSRCHAR_A (strg_ptr); : 
: 718 et 3 
: 719 0838 IF .character NEQ %C‘°%* 3 
H rg 0839 THEN : 
s Tei 0840 4 BEGIN ! Normal text characters are packed directly : 
; 1s¢ 0841 4 CHSWCHAR_A (.character, Line_ptr); : 
; Baeg 4 Line_cnt = .line_cnt + 1 3 
; 724 0843 4 F 
; 62 0844 3 ELSE 4 3 
; 726 0845 4 BEGIN ! Special case flag handling goes on here : 
3s fer B38 4 character = CHSRCHAR_A (strg_ptr); : 
: 728 0847 4 is.i¢1; 3 
: 54 0848 4 : 
; (2 sr 4 ‘Process all of the alternatives ; 
; ay 0850 4 SELECTONE .character OF : 
; £ ; 0851 4 SET : 
; ie ttt 4 3 
: 734 U 0855 4 ZIF DSRPLUS XTHEN : 
3; 735 U 0854 4 CXC°A'): ! Input .BRN File Specification 3 
ee U bgee & BEGIN : 
. U 0856 4 BIND ; 
3 a : rs tt4 ? file_spec_descr = brniob Ciob$t_resultant] : SSTR_DESCRIPTOR (); | : 
; 740 U 0889 4 Line_cnt = .line_cnt + : 
3; «(741 U 360 & pacstr (.file_spec_descr strfe_pointer. ; 
; 74 U 0861 4 e-file spec_descr ([str$h_length] : 
; 74 U § 4 eline_ptr); | 3 
3 744 U 4 END; : 
: 745 4 4 XFI : 
; 74 5 4 CxC'°B'): ' Output .BRN File Specification : 
- a si" : 
° «a . 
3; 4% ® file_spec_descr = brnoob Ciob$t_resultant] : SSTR_DESCRIPTOR (); | ; 
| 
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G =-- fill in missing arguments 


Fe ee aa) al al al ee ee or et er et et et et et ee et et oe et ot ot ot ot ot ot da sa a a sl a ee oe oe oP oP oe o> or oe oe nO Oa Os Oa) 


3 


n message 14-Sep-1 Dd SMASTER: CRUN 


line.cnt = .line_cnt + 
pacstr (.file_spec_descr (str$a_pointer] 
»»file_spec_descr (str$h_length] 


,line ptr); 
END; 
Cxc'c'): ! Input Sequence Number 
Line_cnt = .Line_cnt+pacbas (.irac_iseqn, Line_ptr, 10); 
CXC'F "I: ! Current Input File Name 
Line_cnt = .line_cnt + pacstr (.irac_fspecp 
op ]rac,repece 
line ptr); 
CxC'O"): ! Output File Specification 
a 


file spec_descr = rnoiob Ciob$t_resultant] : SSTR_DESCRIPTOR (); 


Line_cnt = .line cnt + 
pacstr (.file_spec_descr (Cstr$a_pcinter] 
o-file_spec_descr Cstr$h_length] 


eline_ptr); 
END; . 
Cxc'I"): ! Input Page Number 

Line_cnt = .line_cnt + pacbas (.irac_ipagen, Line_ptr, 10); 
C2C'L'): ' Output Line Number 

Line_cnt = .line_cnt + pacbas (.phan_lines_tp, line_ptr, 10); 
C2C'N'): ! Numeric passed argument 

Line_cnt = .line_cnt + pacbas (.arg, Line_ptr, 10); 
CZc*P*): ' Current Output Page Number 


Line_cnt = .line_cnt + pacpag (pagen, Line_ptr); 
Cxc'S"): ! String passed argument 


' In no case insert more than 100 characters. 
; (Defensive coding.) 


Line_cnt = .lLine_cnt + pacstr (.arg 
oMIN 198, . len) 


line_ptr 
C2C*v'): ! Insert version number cf program 
BEGIN 
EXTERNAL - ; 
rnovrl, ‘ Length of version number string 
rnovrp; ! CHSPTR to string 


$ ine cat = ,line_cnt + pacstr (.rnovrp, .rnovrl, Line_ptr); 


C2C°X"): ! Insert an ‘'s'’ if 2N was other then 1. 


st 


Mm 3 

ERROR Field (error) message requests from other modul 16-Sep-1984 00:25:5 VAX=11 Bliss-32 V4.0-742 
v04-000 SCNMSG == fill in missing arguments %n message 17-388- 3h 99:58 3 DISKEVMSMASTER: CRUNOFF .SRCJERROR.BLI 
3 9 4 IF .arg NEQ 1 
; p 9 $ c THEN ° 
3 9 3 hh, 
; 81 9 CHSWCHAR_A (2C's', Line_ptr); 
>; 81 9 Line _cnt=.line_cnt+1 
; \§ 2 1 ? END; 
> 814 9 § 4 COTHERWISE]: ! Unrecognized flag, treat as text 
: 815 934 BEGIN 
3 18 935 CHSWCHAR_A (2C'°%', Line _ptr); 
3 1 9 $ CHSWCHAR_A (.character, Line_ptr); 
; 18 9 Line_cnt = .line_cnt+2 
; «81 936 4 END; 
; 0 939 4 
; 1 940 4 TES 
: 855 ea END 
: 4 & $908 4 
; 5 0944 END; 
3; § § 0945 
: N .line_cnt; 

8 0946 RETURN .Line_cnt 
; 828 0947 1 END; ‘End of SCNMSG 


-EXTRN RNOVRL, RNOVRP 
OO SCNMSG: .WORD Save R2,R3,R4,R5,R6,R7 
0 MOVAB +8, R7 


So 
o 


o—-90—-90 0S 9 Ow 9 9 OW" 9 OWO OUCC on 
ONS 9 MON SO OON OO F “OW FP HK FE POL OMO 


57 000000006 0 IRAC 
* ea NEw 
55 08 OVL MESSAGE, STRG_PTR 
56 MOVZBL (STRG_PTR)+, STRG_CNT 
CLRL 
01 BRW 4 
53 1$ MOVZBL (STRG_PTR)+, CHARACTER 
25 CHPL ARACTER, #37 
00 BE MOVB ARACTER, @LINE_PTR 
01 BRW $ 
53 2$ MOVZBL TRG_PTR)+, CHARACTER 


00000042 = =8F 


”* 900000006 


00000043 8F 


ARACTER, #66 


w 
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S 
1 
ILE_SPEC_DESCR, (SP) 
ARACTER, #67 
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Pp 
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0 

NE_PTR 

acts 
00000046 = BF ARACTER, #70 
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ther modul 16-Sep- 
nm message 14-Sep- 
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—VPIVIOM MN" BW WOE FM" WOM NINO & FP OU M POOVMV YS POOF Ou 1 
00-9 —-9 Oo "90909 90-9 0-999 9 |] 109 $9 - "90 OO 90-90 00-0 0 09 9 Own 
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+38 VAX-11 Bliss-32 V4.0-742 
1 DISKSVMSMASTER: CRUNOFF .SRCJERROR.BLI 


{pAC16. -(SP) 
HARACTER, #79 
#28, RNOIOB, RO 
-(SP) 

14$ 


enews #73 


atin #76 


10 

CHARACTER, #78 
11$ 

#10 

LINE_PTR 

AR 

#3, PACBAS 
CHARACTER, #80 
12$ 


PAGEN 
He PACPAG 

178 

CHARACTER, #83 
15$ 

SP 

LEN 

(SP), #100 
#100, (SP) 

ARG 


16$ 
SROAACTER. #86 
3$ 


S 

RNOVRL 

RNOVRP 

#3, PACSTR 

n0 LINE_CNT 
HARACTER, #88 
ARG, #1 


#115, @LINE_PTR 
LINE_PTR 


25 3S See MS SF 85 $8 FF SRE 


4 
ERROR Field (error) message requests from other modul 16-Sep-1984 00: 63:8 VAX=-11 Bliss-32 V4.0-742 Page 33 
v04-000 SCNMSG == fill in missing arguments in message 14-Sep-1984 13:06:1 DISKSVMSMASTER:CRUNOFF.SRCJERROR.BLI;1 (12) 
é 6 13 INCL NE_CNT ; 0930 
F 1 f BRB 8 358 
00 «BE 5 90 00140 20$ MOVB e @LINE_FTR : 09 
5 8 144 INCL NE_PTR : 
00 BE 146 MOVB CHARACTER, @LINE_PTR ; 0936 
8 14A INCL NE_PTR : 
¢ C 14C ADDL2 #2, CINE_CNT : 0937 
FECS 54 F1 QOO14F 21$: ACBL = STRG_CNT> #1, I, 1% > 0838 
0 Be 133 MOVL LINE_CNT, RO 3: 094 
4 001 RET 3; 094 


; Routine Size: 345 bytes, Routine Base: S$CODE$S + 0206 


; 829 0948 1 


; | 


Field (error) message requests from other modul 1 1§- ~$00n 138% 90: $2! :59 VAX-11 Bliss-32 V4.0-742 Page ¢6 
REPORT _SECONDARY_ME SAGE -- if present, get and 14-Se 4 6:10 DISKSVMSMASTER: CRUNOFF.SRCJERROR.BLI;1 (13) 

s @3) 0949 1 ZSBITL "REPORT_SECONDARY_MESSAGE == if present, get and output it’ 

; 5 é Baey ! ROUTINE report_secondary_message (msgcode) = 
; 834 0350 1 {44 | 
: 5S 095$ 1 | FUNCTIONAL DESCRIPTION: | 
> 83: 0955 1! If the MSGCODE is nonzero, it identifies an error message. Capture 

; te B3e$ ! that error message and report it using a call to ERM. | 
; 840 0958 1! This secondary error message handler was implemented to get the 

; ot 8328 : detailed reason for issuing the following error messages: 

3 rk 036) : RNFCOB, RNFCOF, RNFCOI, RNFCOO, RNFCOR, RNFCOT, or RNFCOX. 

; «4845 bees 1 ! FORMAL PARAMETERS: 

; 846 0964 1! 

; 847 0965 1! MSGCODE - - error message code. for the time being, we assume it's 

; 848 0966 1! hin the scope of XPORTs error messages. 

; 849 0967 1! 

; 850 0968 1 ! IMPLICIT INPUTS: None 

; 851 0969 1! 

; $26 0970 1! IMPLICIT OUTPUTS: None 
‘3s 83 0974 7: 

3; 854 0972 1 ! ROUTINE VALUE: 

; «855 09735 1! 

; 856 0974 1! Returns TRUE if the message was there and reported. 

: See bone : } Returns FALSE if the code was zero or otherwise not reported. 

; 859 0977 1 ! SIDE EFFECTS: None 

; 860 0978 1 !-- 

; 861 0979 ~«+1 

3 o06 0980 2 BEGIN 

; 86 0981 2 EXTERNAL LITERe. aes 

; 864 098 rnfstr; ! 1 = ‘SS 

; 865 098 

: 866 0984 ! Initialize message string Seacripter' 

3; 867 0985 widesci (Cstr$b_dtype] = str$k_dtype_ ti ' ASCII text (8-bit) 

3 0986 w_desc! Cstr$b_class] = str$k_class_f ! Fixed peeeter) porsne Fs bqecripter 

3; 869 0987 w_descl (Cstr$a_ wpetnters = ¥5 purrers “(61; ! First byte of char. buf 

; 870 0988 w_desc! Cstr$h_length] ! Size of buffer 

; 871 0989 

; a78 0990 IF .msgcode NEQ 0 

s 82 0991 THEN ! If there is at least something in the code, 

; Bre 9444 BEGIN ! attempt to capture the message and report it. | 
; 876 0994 ZIF ZBLISS(BLISS32) XTHEN 

; 877 0995 sys$getmsg (.msgcode 

; 878 099 WL qesc Cstr$h_length) 

; 879 099 »w_descl 

; 880 998 yy | 
; 881 999 :0 ); 
; HY 1990 
; «88 U 1001 ZELSE 

: B85 U 199 ari XPOSXMSG (.msgcode, w_descl ); ! Get message from XPORT | 
; 886 1 
; 887 1008 erm (RNFSTR, .w_descl Cstr$a_pointer], .w_desc! Cstr$h_length]); | 

| 
| 


buen” ppdimmign ) 


4 
Field (error) message requests from other modul ib-se -1984 00:25:59 VAX-11 Bliss-32 V4.0-742 Pp 7 | FIC 
REPORT SECONDARY _MESSAGE == if present, get and 1o-808- 1382 0: 6:10 DISKSVMSRASTER:CRUNOFF SRCDERROR.BLI;T™"(18) 

: oF RETURN TRUE; ! Return code indicating that a ; 
1 § ELSE 3 
100 RETURN FALSE; ' Return code indicating that a : 
1319 ! message has NOT been output. : 
1011 END; 'End of SCNMSG ; 
0004 00000 REPORT_SECONDARY_MESSAGE: 3 

-WORD Save R ; 0950 $ 

5 909098 0° Gf 9 90008 MOVAB W_DESC1, R2 ; : 

62 010E0082 =BF OD 990 MOVL #77694850, W_DESC1 : 0988 : 

06 =A FF7C C2 9 9 10 MOVAB W_BUFFER1, W_DESC1+4 3; 0987 ; 

06 ac OD 016 TSTL MSGCODE ; 0990 3 

6 13 00019 BEQL 1$ : 3 

7E 1 7D 0001B MOVQ #1, -(SP) ; 0996 FY 

§ DD OOOIE PUSHL Rg : : 

52 DD 00020 PUSHL R : $ 

: 04 ac OD B28 § PUSHL MSGCODE : 3 

00000000G_ EF 0S FB 000 ALLS #5, SYSSGETMSG 3 3 

7E ag 3C 0002C MOVZWL W_DESC1, -(SP 3; 1005 : 

04 A2 ODD 0002F PUSHL DESC1+4 : 3 

00000000G 8F DD 00032 PUSHL #RNFSTR : 3 

FD42—sCCF 03 FB 00038 CALLS #3, ERM 3 3 

50 01 00 00030 MOVL #1, RO : 1009 ; 

04 00040 RET 3 3 

50 D4 00041 1$: CLRL RO : : 

04 00043 RET ; 1011 ; 

; Routine Size: 68 bytes, Routine Base: S$CODES + 035F ; 
Ole 1 F 
101 1 END ‘End of module : 
1014 0 ELUDOM . 

PSECT SUMMARY 
Name Bytes Attributes | 

648 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON OE TE A 1 ant} 

931 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 
ee Symbols -------- Pages Processing 


a - = =— Geo 


ee ——— - —+ 


: Btzes 931 code + 648 data bytes 


Field (error) message requests from other moduli ise Sep-1984 5:5 VAX=11 Bliss-32 V4.0-742 F1C 
v04-000 REPORT_SECONDARY_ME SAGE == i? present, get and 14- ~Sep-1984 99: 68: 73 DISKSVMSMASTER:CRUNOFF .SRCJERROR.BLI; + gs 33 vo. 
: File Total Loaded Percent Mapped Time : 

: _$255$DUA SYSLIBIXPORT .L32;1 9 9 15 252 0:00. ; 
: ~ESSSSDUASB:ERUNOFF-SRCIDSRL 16.L32;1 1348 58 2 86 0:00:3 ; 
: COMMAND QUALIFIERS ; 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:ERROR/OBJ=OBJ$:ERROR MSRC$:ERROR/UPDATE=(ENH$:ERROR) : 


3 ltde g tleer 00:53.5 
3: Lines/CPU Min: 05 

3 Lexemes/CPU-Min: 28149 

3 ety Used: 149 pages 
3 2 


; Compilation Complete 


34] SH BT13A- SE ENT CORPOR 
VAX/VMS V4.0 N 
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